home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-4 / background_8040.txt < prev    next >
Text File  |  1990-04-06  |  7KB  |  280 lines
  1. -- background: 8040 from stack: in.0-4
  2. -- bmap block id: 8837
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Nuts&Bolts1
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=474 top=19 right=48 bottom=506
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 178 / 178
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: mainMenuIcon
  20. ----- HyperTalk script -----
  21. -- This handler goes back to the main menu of the Intro stack.
  22. on mouseUp
  23.   visual dissolve
  24.   go cd "go to main menu" of stack "Intro to HyperCard 2.0"
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part 3 (button)
  30. -- low flags: 00
  31. -- high flags: 2000
  32. -- rect: left=474 top=195 right=224 bottom=506
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 24471 / 24471
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: MapBtn
  41. ----- HyperTalk script -----
  42. -- This handler goes back to the Map stack.
  43. --
  44. -- Globals:
  45. --    DisSpeed - the speed to use for visual effects
  46. --    CameFrom - tells the Map where the user came from
  47. --    MapMode  - tells the Map whether to use graphic or text mode
  48. on mouseUp
  49.   global DisSpeed, CameFrom, MapMode
  50.   set the hilite of me to true
  51.   lock Screen
  52.   set the hilite of me to false
  53.   put "section 2:1" into CameFrom
  54.   put "section 2:" into whichCd
  55.   if MapMode is "graph" then
  56.     go to cd whichCd of stack "‚Ä¢HC 2.0-3"
  57.     HiliteMap
  58.   else
  59.     go to cd "indexmap" of stack "‚Ä¢HC 2.0-3"
  60.   end if
  61.   unlock screen with DisSpeed
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 4 (button)
  67. -- low flags: 00
  68. -- high flags: 2000
  69. -- rect: left=474 top=235 right=264 bottom=506
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 10112 / 10112
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: HomeBtn
  78. ----- HyperTalk script -----
  79. -- This handler lets the user quit or go home.
  80. -- It goes to cd "hi" of the Intro stack first to reset things.
  81. on mouseUp
  82.   answer "What do you want to do?" with "Cancel" or "Quit" or "Go Home"
  83.   if it is not "Cancel" then
  84.     lock screen
  85.     global CameFrom,stakName
  86.     put the short name of this cd into CameFrom
  87.     put the short name of this stack into stakName
  88.     go to cd "hi" of stack "Intro to HyperCard 2.0"
  89.     if it is "Quit" then
  90.       put "doMenu " & quote & "Quit HyperCard" & quote into myMsg
  91.       send myMsg to this cd
  92.     else if it is "Go Home" then send "doMenu home" to this cd
  93.   end if
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 5 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=474 top=59 right=88 bottom=506
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 5552 / 5552
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: section
  110. ----- HyperTalk script -----
  111. -- This handler goes back to the appropriate menu of the "Intro" stack.
  112. on mouseUp
  113.   visual dissolve
  114.   go cd "Section 2:1" of "Intro to HyperCard 2.0"
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 6 (field)
  120. -- low flags: 01
  121. -- high flags: 0000
  122. -- rect: left=67 top=48 right=335 bottom=412
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 0
  126. -- font id: 174
  127. -- text size: 14
  128. -- style flags: 0
  129. -- line height: 15
  130. -- part name: Instructions
  131.  
  132.  
  133. -- part 9 (field)
  134. -- low flags: 01
  135. -- high flags: 0000
  136. -- rect: left=67 top=26 right=48 bottom=145
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 0
  140. -- font id: 174
  141. -- text size: 14
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: x of y
  145.  
  146.  
  147. -- part 11 (button)
  148. -- low flags: 00
  149. -- high flags: 2000
  150. -- rect: left=473 top=308 right=337 bottom=501
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 14077 / 14077
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: Prev
  159. ----- HyperTalk script -----
  160. -- The "goPrev" handler is in the stack script.
  161. on mouseUp
  162.   goPrev
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 12 (button)
  168. -- low flags: 00
  169. -- high flags: 2000
  170. -- rect: left=476 top=278 right=308 bottom=507
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 3720 / 3720
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Next
  179. ----- HyperTalk script -----
  180. -- The "goNext" handler is in the stack script.
  181. on mouseUp
  182.   goNext
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 19 (field)
  188. -- low flags: 81
  189. -- high flags: 0007
  190. -- rect: left=0 top=0 right=73 bottom=500
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 0
  194. -- font id: 3
  195. -- text size: 9
  196. -- style flags: 0
  197. -- line height: 12
  198. -- part name: allFeed
  199.  
  200.  
  201. -- part 20 (field)
  202. -- low flags: 81
  203. -- high flags: 0000
  204. -- rect: left=2 top=325 right=341 bottom=62
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 0
  208. -- font id: 3
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: answer
  213.  
  214.  
  215. -- part 21 (field)
  216. -- low flags: 81
  217. -- high flags: 2004
  218. -- rect: left=10 top=276 right=340 bottom=341
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 0
  222. -- font id: 174
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 14
  226. -- part name: feedback
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   put empty into me
  230.   hide me
  231. end mouseUp
  232.  
  233.  
  234. -- part 23 (button)
  235. -- low flags: 00
  236. -- high flags: C000
  237. -- rect: left=273 top=23 right=46 bottom=415
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 174
  242. -- text size: 14
  243. -- style flags: 256
  244. -- line height: 18
  245. -- part name: Intro Self-Assessment
  246. ----- HyperTalk script -----
  247. -- This handler does some of the flying button animation.
  248. -- "originCdName" is used by the bg script to determine
  249. -- where to go, as well as in the flying btn animation
  250. on mouseUp
  251.   global OriginCdName,TopSelBtn
  252.  
  253.   lock screen
  254.   put "299,318,415,341" into BtnRect
  255.   put "Self-Assessment" into BtnName
  256.   put the icon of bg btn "Section" into iconID
  257.   go to cd "interm2" of "Intro to HyperCard 2.0"
  258.  
  259.   set the rect of bg btn id 16 to BtnRect
  260.   set the name of bg btn id 16 to BtnName
  261.   set the icon of bg btn "section" to iconID
  262.  
  263.   unlock screen with visual dissolve
  264.   set the top of bg btn id 16 to TopSelBtn
  265.  
  266.   -- go to interm1 cd, prepare it and reveal it
  267.   lock screen
  268.   go to cd "interm1"
  269.   put fld "title" of cd OriginCdName into fld "title"
  270.   set the name of btn id 1 to BtnName
  271.   set the rect of btn id 1 to BtnRect
  272.   set the top of btn id 1 to TopSelBtn
  273.   unlock screen with dissolve
  274.  
  275.   -- go to the section cd
  276.   visual dissolve
  277.   go to cd OriginCdName
  278. end mouseUp
  279.  
  280.